home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-IV-2.TRA < prev    next >
Text File  |  1990-01-26  |  1KB  |  56 lines

  1. 0001          0
  2.    I          0
  3.    J          0
  4. STRT     LDFIVE X is value being tested
  5.          ST   X   start with 5
  6.          LD ONE J is the highest index
  7.          ST   J   in table of primes
  8.          RD  XF Enter final X to test
  9. SETI     LDZERO I is index for prime table
  10.          ST   I
  11. COMR     LD   X Find whole part of X/T(I)
  12.         2DV   T
  13.         2MU   T Multiply it by T(I) and
  14.          SU   X subtract X
  15.          BZINCX Is the remainder zero?
  16.         2LD   T Find T(I)*T(I)
  17.         2MU   T
  18.          STTSQR Save it
  19.          LD   X Find X-T(I)*T(I)
  20.          SUTSQR
  21.          BNAPPT If negative, found a prime
  22.          LD   I Else, increment I
  23.          AD ONE
  24.          ST   I
  25.          BUCOMR   and test with next prime
  26. APPT     LD   X Put new prime in the table
  27.         3ST   T X->T(J)
  28.          LD   J Increment J
  29.          AD ONE
  30.          ST   J
  31.          PC   X Print it
  32. INCX     LD   X Try next odd number
  33.          AD TWO
  34.          ST   X
  35.          SU  XF Does it exceed final value?
  36.          BNSETI If not, keep going
  37.          BZSETI
  38.          HT*
  39. FIVE          5
  40.  ONE          1
  41. ZERO          0
  42.  TWO          2
  43. TSQR          0
  44.    X          0
  45.               0
  46.               0
  47.               0
  48.               0
  49.   XF          0
  50.               0
  51.               0
  52.               0
  53.               0
  54.    T          3
  55.          ENSTRT
  56.